home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / c / zmdm_src / hi5025.s < prev    next >
Text File  |  1988-06-26  |  1KB  |  58 lines
  1. /
  2. /  Make hi rez screen bios handle 50 lines of 8x8 characters
  3. /
  4. /  Adapted to Mark Williams C use from origional PD asm posting
  5. /  from atari corp.
  6. /
  7. /         Jwahar Bammi
  8. /             usenet: cwruecmp!bammi@decvax.UUCP
  9. /            csnet:  bammi@cwru.edu
  10. /            arpa:   bammi@cwru.edu
  11. /             CompuServe: 71515,155
  12. / 
  13. /
  14.         .shri
  15.  
  16.     .globl hi50_
  17.  
  18. hi50_:                  / switch to 50 line mode
  19.     link    a6,$0          / routine preamble
  20.  
  21.     .word    0xA000          / get the important pointers (line A init)
  22.  
  23.     movea.l    4(a1),a1      / a1 -> 8x8 font header
  24.  
  25.     move.l  72(a1),-0x0A(a0)  / v_off_ad <- 8x8 offset table addr
  26.     move.l  76(a1),-0x16(a0)  / v_fnt_ad <- 8x8 font data addr
  27.  
  28.     move    $8,  -0x2E(a0)      / v_cel_ht <- 8    8x8 cell height
  29.     move    $49, -0x2A(a0)      / v_cel_my <- 49   maximum cell "Y"
  30.     move    $640,-0x28(a0)    / v_cel_wr <- 640  offset to cell Y+1
  31.  
  32.     unlk    a6          / routine postable
  33.     rts              / and return
  34.  
  35.    
  36. /
  37. / Make hi rez screen bios handle 25 lines of 8x16 characters
  38. /
  39.  
  40.     .globl hi25_
  41.  
  42. hi25_:                  / Switch to 25 lines display
  43.     link    a6,$0          / routine preamble
  44.  
  45.     .word   0xA000          / get the important pointers
  46.     
  47.     movea.l    8(a1),a1      / a1 -> 8x16 font header
  48.  
  49.     move.l  72(a1),-0x0A(a0)  / v_off_ad <- 8x16 offset table addr
  50.     move.l  76(a1),-0x16(a0)  / v_fnt_ad <- 8x16 font data addr
  51.  
  52.     move    $16,  -0x2E(a0)      / v_cel_ht <- 16    8x16 cell height
  53.     move    $24,  -0x2A(a0)      / v_cel_my <- 24    maximum cell "Y"
  54.     move    $1280,-0x28(a0)      /  v_cel_wr <- 1280  vertical byte offset
  55.  
  56.     unlk    a6          / routine postamble
  57.     rts              / bye
  58.